function []=makefigwide(vflag);
% 
%  Call to stretch the width of the figure -- good for printing
%  GDP per capita over a long period of time, or for time series line 
%  plots.
%
%    makefigwide(1) or makefigwide 'new' for "exportgraphics" version 2022

if exist('vflag')~=1;
% OLD: Pre-2022
    set(gcf, 'PaperUnits', 'inches');
    papersize = get(gcf, 'PaperSize');
    width = 9;         % Initialize a variable for width.
    height = 5;          % Initialize a variable for height.
    left = (papersize(1)- width)/2;
    bottom = (papersize(2)- height)/2;
    myfiguresize = [left, bottom, width, height];
    set(gcf, 'PaperPosition', myfiguresize);
else;
    % 2022 for exportgraphics
    %set(gcf,'PaperPosition',[392 411 1108 636]); % For exportgraphics
    %set(gcf,'PaperPosition',[392 411 1108 691]); % For exportgraphics. Same as OuterPosition
    set(gcf,'PaperPosition',[392 411 1108 736]); % For exportgraphics. Same as OuterPosition
end